home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d11 / basmus.arc / PRAELUD1.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1990-09-29  |  2.8 KB  |  54 lines
  1. 100  ' PRAELUDIUM I FROM THE WELL-TEMPERED CLAVIER BY J. S. BACH
  2. 110  ' REALIZED BY JOHN D. BRINK, RIVER FOREST, IL. 0CTOBER 1983
  3. 120  '
  4. 130  SCREEN 0,1: WIDTH 80: COLOR 5,1,2: KEY OFF: CLS
  5. 140  PLAY "MB L16 T132 MS"
  6. 150  FOR I=1 TO 35
  7. 160      READ M$
  8. 170      PRINT I;" ";M$
  9. 180      PLAY M$
  10. 190      NEXT I
  11. 200  FOR I = 1 TO 1500: NEXT I
  12. 210  COLOR 7,0,0: KEY ON: CLS: END
  13. 220  '
  14. 230  DATA " O2 C E G O3 C E O2 G O3 C E   O2 C E G O3 C E O2 G O3 C E "
  15. 240  DATA " O2 C D A O3 D F O2 A O3 D F   O2 C D A O3 D F O2 A O3 D F "
  16. 250  DATA " O1BO2D G O3 D F O2 G O3 D F   O1BO2D G O3 D F O2 G O3 D F "
  17. 260  DATA " O2 C E G O3 C E O2 G O3 C E   O2 C E G O3 C E O2 G O3 C E "
  18. 270  DATA " O2 C E A O3 E A O2 A O3 E A   O2 C E A O3 E A O2 A O3 E A "
  19. 280  DATA " O2 C D F#A O3 D O2 F#A O3 D   O2 C D F#A O3 D O2 F#A O3 D "
  20. 290  DATA " O1BO2D G O3 D G O2 G O3 D G   O1BO2D G O3 D G O2 G O3 D G "
  21. 300  DATA " O1BO2C E G O3 C O2 E G O3 C   O1BO2C E G O3 C O2 E G O3 C "
  22. 310  '
  23. 320  DATA " O1AO2C E G O3 C O2 E G O3 C   O1AO2C E G O3 C O2 E G O3 C "
  24. 330  DATA "O1D AO2D F#O3 C O2 D F#O3 C   O1D AO2D F#O3 C O2 D F#O3 C "
  25. 340  DATA "O1 G B O2 D G B D G B         O1 G B O2 D G B D G B "
  26. 350  DATA "O1GA#O2E G O3 C#O2 E G O3 C#  O1GA#O2E G O3 C#O2 E G O3 C#"
  27. 360  DATA "O1F AO2D A O3 D O2 D A O3 D   O1F AO2D A O3 D O2 D A O3 D "
  28. 370  DATA "O1 F G#O2 D F B D F B         O1 F G#O2 D F B D F B "
  29. 380  DATA "O1EG O2C G O3 C O2 C G O3 C   O1EG O2C G O3 C O2 C G O3 C "
  30. 390  DATA "O1 E F A O2 C F O1 A O2 C F   O1 E F A O2 C F O1 A O2 C F "
  31. 400  '
  32. 410  DATA "O1 D F A O2 C F O1 A O2 C F   O1 D F A O2 C F O1 A O2 C F "
  33. 420  DATA "O0GO1D G B O2 F O1 G B O2 F   O0GO1D G B O2 F O1 G B O2 F "
  34. 430  DATA "O1 C E G O2 C E O1 G O2 C E   O1 C E G O2 C E O1 G O2 C E "
  35. 440  DATA "O1 C G A#O2 C E O1 A#O2 C E   O1 C G A#O2 C E O1 A#O2 C E "
  36. 450  DATA "O0FO1F A O2 C E O1 A O2 C E   O0FO1F A O2 C E O1 A O2 C E "
  37. 460  DATA "O0F#O1CA O2 C D#O1 A O2 C D#  O0F#O1CA O2 C D#O1 A O2 C D#"
  38. 470  DATA "O0G O1D#B O2C D#O1 B O2 C D#  O0G O1D#B O2C D#O1 B O2 C D#"
  39. 480  DATA "O0G#O1FB O2 C D O1 B O2 C D   O0G#O1FB O2 C D O1 B O2 C D "
  40. 490  '
  41. 500  DATA "O0G O1FG B O2 D O1 G B O2 D   O0G O1FG B O2 D O1 G B O2 D "
  42. 510  DATA "O0G O1EG O2 C E O1 G O2 C E   O0G O1EG O2 C E O1 G O2 C E "
  43. 520  DATA "O0G O1DG O2 C F O1 G O2 C F   O0G O1DG O2 C F O1 G O2 C F "
  44. 530  DATA "O0G O1DG B O2 F O1 G B O2 F   O0G O1DG B O2 F O1 G B O2 F "
  45. 540  DATA "O0G O1D#A O2C F#O1 A O2 C F#  O0G O1D#A O2C F#O1 A O2 C F#"
  46. 550  DATA "O0G O1E G O2C G O1 G O2 C G   O0G O1E G O2C G O1 G O2 C G "
  47. 560  DATA "O0G O1D G O2C F O1 G O2 C F   O0G O1D G O2C F O1 G O2 C F "
  48. 570  DATA "O0G O1DG B O2 F O1 G B O2 F   O0G O1DG B O2 F O1 G B O2 F "
  49. 580  '
  50. 590  DATA "O0C O1CG A#O2 E O1 G A#O2 E   O0C O1CG A#O2 E O1 G A#O2 E "
  51. 600  DATA "T105 O0C O1C F A O2C F C O1A  O2C O1A F A F D F D "
  52. 610  DATA "T090 O0C B O2G B O3D F D O2B  O3D O2B G B D F E D C1"
  53. 620  '   THAT'S ALL, FOLKS!
  54.